﻿Public Class clsSysParam
    Public Function selectAgvWebSite() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "agv_website")
        If IsNothing(dt) Then
            selectAgvWebSite = New DataTable
        Else
            selectAgvWebSite = dt
        End If
    End Function

    Public Function selectAgvTmj() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "agv_tmj")
        If IsNothing(dt) Then
            selectAgvTmj = New DataTable
        Else
            selectAgvTmj = dt
        End If
    End Function

    Public Function update_agv_tmj(agv As String, task_step_id As String) As Integer
        Dim szSql As String = String.Empty
        Dim rtn As Integer
        szSql &= "update sf.t_sys_param set param_value = ?, param_explain = ? where param_key = ?"
        rtn = DBacs.ExecuteUpdateSql(szSql, -1， agv, task_step_id, "agv_tmj")
        Return rtn
    End Function


End Class
